The Disc - MacWorld 1995/PowerComputing (The Disc)(MacWorld 1995).ISO/mac/CDFACTOR/HCfactor/HumanCode/HumanCode.DXR/00051_blitPict parent for Mac.ls

Text File | 1995-07-14 | 1.3 KB | 47 lines

property srcrect, POINTER, pictWidth, pictHeight

on birth me
  set srcrect to EMPTY
  set POINTER to EMPTY
  set pictWidth to EMPTY
  set pictHeight to EMPTY
  return me
end

on blitPictInitFile me, pictfilepath
  blitpict("init", "file", pictfilepath, EMPTY, "1")
  set POINTER to item 1 of result()
  set srcrect to item 2 to 5 of result()
  set pictWidth to integer(item 3 of srcrect) - integer(item 1 of srcrect)
  set pictHeight to integer(item 4 of srcrect) - integer(item 2 of srcrect)
end

on blitPictInitScreen me, screenRect
  blitpict("init", "screen", screenRect)
  set POINTER to item 1 of result()
  set srcrect to item 2 to 5 of result()
end

on blitPictDrawObj me, theSrcRect, object, destrect, ink
  blitpict("draw", POINTER, object, theSrcRect, destrect, ink, 0, 0)
end

on blitPictDrawScreen me, theSrcRect, theDestRect, ink, trans, delay
  blitpict("draw", POINTER, "0", theSrcRect, theDestRect, ink, trans, delay)
end

on blitPictDispose me
  if POINTER <> EMPTY then
    blitpict("kill", POINTER)
    set POINTER to EMPTY
  end if
end

on blitPictDrawFile me, pictfilepath, theDestRect, ink, trans, delay
  blitpict("init", "file", pictfilepath, EMPTY, "1")
  set POINTER to item 1 of result()
  blitpict("draw", POINTER, "0", item 2 to 5 of result(), theDestRect, ink, trans, delay)
  blitpict("kill", POINTER)
  set POINTER to EMPTY
end